home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Explorer Options 5.ttp < prev    next >
INI File  |  2005-03-15  |  1KB  |  49 lines
  1. [SETTINGS]
  2. Category=Windows Tweaks::Explorer::Folder Customization Cache
  3. Caption=Folder Customization Cache Size
  4. OSVERSION=XP,2003
  5. VERSION=1.00
  6.  
  7. [INTERFACE]
  8. TYPE=multi
  9. type0=spin
  10. Text0=Folders to remember
  11. style0=200,65535
  12.  
  13. #=To conserve memory, Explorer remembers only a limited number of folder view customizations. Change this value to increase or decrease the number of customizations Explorer will remember.
  14. #=\nWhen this limit is exceeded, customizations For the folder least recently visited will be discarded.
  15. #=\n
  16. #=XP-SP2 sets this value as 5000. To set the default value of 400, clear the text box and click Apply
  17. Author=
  18.  
  19. [EXPORT]
  20.  
  21.  
  22. [SCRIPT]
  23. Dim str1,str2
  24. str1="HKCU\Software\Microsoft\Windows\Shell\BagMRU Size" 
  25. str2="HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU Size" 
  26.  
  27. Sub OnInit()
  28.  
  29.  Dim s
  30.  s=RegReadValue(str1)
  31.  SetItemText 0,s
  32. End Sub
  33.  
  34. Sub OnApply(x,y)
  35.  
  36.  'RegDeleteKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\BagMRU"
  37.  'RegDeleteKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags"
  38.  
  39.  Dim i
  40.  i=GetItemText(0)
  41.  if len(i)>0 then 
  42.     Call RegWriteValueD(str1,i)
  43.     Call RegWriteValueD(str2,i)
  44.  else
  45.     if RegValueExists(str1) then RegDeleteVal(str1)
  46.     if RegValueExists(str2) then RegDeleteVal(str2)
  47.  end if
  48. End Sub
  49.